home *** CD-ROM | disk | FTP | other *** search
- G4C
-
- ; to be called from Dir.gc ONLY!
-
- WinBig -1 -1 300 27 "Rename files"
- WinType 11110010
- varpath dir.gc
-
- xOnLoad
- setscreen dir.ren $SCREEN
-
- xOnOpen
- extract lv_file path dir ; get path & store it
- update Dir.ren 1 $lv_file
- setgad dir.ren 1 on ; to get cursor in textin gadget
-
- xOnClose
- lvdir refresh ; re-read the dir.
- guiquit Dir.ren
-
- xOnFail
- EZreq "Error in renaming file" OK ""
-
- ;=========================> the text gad
-
- xTextIn 5 5 290 18 "" ren_name "" 150
- gadid 1
- rename $lv_file $ren_name ; rename the entry
- lvmulti off ; set it off
- extract ren_name FILE ren_temp ; get the new file name
- extract ren_temp CLEAN ren_temp ; clean it up
- lvput $ren_temp ; change list to the altered name
- lvmulti next ; get the next one
- if $lv_file = "" ; quit when it's all over
- guiclose Dir.ren
- else
- update Dir.ren 1 $lv_file ; put up the next entry for editing
- setgad Dir.ren 1 on
- endif
-
-